use dataset_anes, clear

keep if white == 1

su votedem if year == 2016 & !mi(white) & !mi(college) [aw=weight]

collapse votedem flip*  [aw=weight], by(college year)

gen flipadvtg = fliprepdem - flipdemrep

#delimit;

gr tw
	(con votedem year if college == 0, col(black) msym(O))
	(con votedem year if college == 1, col(gray) msym(s))
	,
		legend(off)
		plotregion(style(none))
		xlab(1952(4)2016, angle(45))
		xtitle("Year")
		ytitle("Proportion voting Democrat")
		ylab(, angle(horiz))
		text(0.55 1985 "No college", col(black))
		text(0.55 2011 "College", col(gray))
		yline(0.5, lpat(dash))
		;

#delimit cr
 
gr export "figure 6.pdf" , replace
